home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / WYSE60.EMU < prev   
Text File  |  1990-06-01  |  6KB  |  169 lines
  1. INITIAL
  2. z#origin(1)
  3. z#awrap(0)
  4. z#scroll(0)
  5. z#setatt(7)
  6. setcolor(7)
  7. z#setmar(1,@mrow)
  8. z#setins(0)
  9. clear
  10. @NL-0 = 'z#doflg(" a=5 ", "$1bOp", "0")' {ANSI Alt Keypad 0}
  11. @NL-1 = 'z#doflg(" a=5 ", "$1bOq", "1")' {ANSI Alt Keypad 1}
  12. @NL-2 = 'z#doflg(" a=5 ", "$1bOr", "2")' {ANSI Alt Keypad 2}
  13. @NL-3 = 'z#doflg(" a=5 ", "$1bOs", "3")' {ANSI Alt Keypad 3}
  14. @NL-4 = 'z#doflg(" a=5 ", "$1bOt", "4")' {ANSI Alt Keypad 4}
  15. @NL-5 = 'z#doflg(" a=5 ", "$1bOu", "5")' {ANSI Alt Keypad 5}
  16. @NL-6 = 'z#doflg(" a=5 ", "$1bOv", "6")' {ANSI Alt Keypad 6}
  17. @NL-7 = 'z#doflg(" a=5 ", "$1bOw", "7")' {ANSI Alt Keypad 7}
  18. @NL-8 = 'z#doflg(" a=5 ", "$1bOx", "8")' {ANSI Alt Keypad 8}
  19. @NL-9 = 'z#doflg(" a=5 ", "$1bOy", "9")' {ANSI Alt Keypad 9}
  20. @NL-Dsh = 'z#doflg(" a=5 ", "$1bOm", "-")' {ANSI Alt Keypad -}
  21. @NL-Dot = 'z#doflg(" a=5 ", "$1bOn", ".")' {ANSI Alt Keypad .}
  22. @NL-Pls = 'z#doflg(" a=5 ", "$1bOM", "$0d0a")' {ANSI Alt Keypad ENTER}
  23. @uparr = '"$0b"'
  24. @dnarr = '"$0a"'
  25. @riarr = '"$0c"'
  26. @lfarr = '"$08"'
  27. @home = '"$1e"'
  28. @pgup = '"$1bJ"'
  29. @pgdn = '"$1bK"'
  30. @end = '"$05"'
  31. @ins = '"$1bQ"'
  32. @del = '"$7f"'
  33. @bs = '"$08"'
  34. @f1 = '"$01@@$0d"'
  35. @f2 = '"$01A$0d"'
  36. @f3 = '"$01B$0d"'
  37. @f4 = '"$01C$0d"'
  38. @f5 = '"$01D$0d"'
  39. @f6 = '"$01E$0d"'
  40. @f7 = '"$01F$0d"'
  41. @f8 = '"$01G$0d"'
  42. @f9 = '"$01H$0d"'
  43. @f10 = '"$01I$0d"'
  44. END
  45. INBUFFER
  46. 0x8D 0x0D
  47. 0x00 NUL
  48. 0x08 BS2
  49. 0x09 HT
  50. 0x0a LF
  51. 0x0b LF
  52. 0x0c 0xb3       { 6-89 changed before is 0x0c FF}
  53. 0x0d CR
  54. 0x1a CAN
  55. 0x7f NUL
  56. END
  57. INBUFFER2
  58. 0x00 NUL
  59. 0x08 BS2
  60. 0x0b LF
  61. 0x0c 0xb3          { 6-89 changed before is 0x0c ff }
  62. 0x0d NUL           { 6-89 added }
  63. 0x1a CAN
  64. 0x7f NUL
  65. 0x30 0xC2
  66. 0x31 0xC0
  67. 0x32 0xDA
  68. 0x33 0xBF
  69. 0x34 0xC3
  70. 0x35 0xD9
  71. 0x36 0xB3
  72. 0x37 0xDB
  73. 0x38 0xC5
  74. 0x39 0xB4
  75. 0x3A 0xC4
  76. 0x3B 0xB1
  77. 0x3C 0xCD
  78. 0x3D 0xC1
  79. 0x3E 0xBA
  80. 0x3F 0xB2
  81. 0x7A 0xC4       { 6-89 added }
  82. END
  83. OUTBUFFER
  84. END
  85. HOSTCODE
  86. e6                                             { ACK mode off }
  87. C                                              { full duplex mode on }
  88. DF              @echo=0                        { echo off }
  89. c41                                            { set transmit xon/xoff }
  90. c21                                            { set receive xon/xoff }
  91. ~.                                             { wyseword mode off }
  92. ~3              z#setflg(a,5)                  { application key mode on }
  93. ~2              z#setflg(a,4)                  { application key mode off }
  94. d/              z#awrap(0)                     { end of line wrap on }
  95. d*                                             { autopage mode off }
  96. e$20                                           { answer back mode off }
  97. e1                                             { char attribute mode on }
  98. e4              z#lfnl(2)                      { receive CR mode off }
  99. e5              z#lfnl(1)                      { receive CR mode on }
  100. e:                                             { initialize tabs off }
  101. e'                                             { caps lock off }
  102. e-                                             { key repeat on }
  103. eQ                                             { screen saver on }
  104. eT                                             { define CAPS LOCK key as CAPS }
  105. ^0                                             { restore normal screen }
  106. cU                                             { default all programmable keys}
  107. $1E             poscur(1,1)
  108. {               poscur(1,1)
  109. =%r%c           poscur(expr(%c-31),expr(%r-31))
  110. a\rR\cC         poscur(\\c,\\r)
  111. *               poscur(1,1);z#clreos
  112. +               poscur(1,1);z#clreos
  113. T               z#Clreol
  114. t               z#Clreol
  115. Y               z#Clreos
  116. y               z#Clreos
  117. q               z#setins(1)
  118. r               z#setins(0)
  119. R               z#dellin(1)
  120. E               z#inslin(1)
  121. W               z#del(1)
  122. (                                      { write protect mode off }
  123. )                                      { write protect mode on }
  124. '                                      { protect mode off }
  125. 0               z#tabcla               { clear all tab stops }
  126. 1               z#tabset               { set tab stop }
  127. 2               z#tabclr               { clear tab stop }
  128. `0              cursize(9,9)           { cursor display off }
  129. `1              cursize(0,8)           { cursor display on }
  130. `5                                     { blinking block cursor }
  131. `8                                     { screen display off }
  132. `9                                     { screen display on }
  133. `:              dos("setmax -ammon -c80 -r25 -mmono"); { set 80-column display }
  134. `;              @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  135. `b                                     { standard status line on }
  136. `I                                     { line lock mode off }
  137. G0              z#setatt(7)
  138. G2              z#setatt(128)
  139. G4              z#setatt(112)
  140. G6              z#setatt(112)
  141. G8              z#setatt(1)
  142. G?
  143. G<              z#setatt(112);z#setatt(01)
  144. G>              z#setatt(112);z#setatt(128);z#setatt(1)
  145. G:
  146. G;
  147. N               z#scroll(0)
  148. O               z#scroll(1)
  149. H$02            z#setbuf(2,1)     { 6-89 modified }
  150. H$03            z#setbuf(1,1)     { 6-89 modified }
  151. z    invoke funkey.act
  152. Z0%k                     { 6-89 filter out key value assignment }
  153. [%k  strseq("$7f", 3)    { 6-89 filter out key value assignment }
  154. z(
  155. Z(
  156. _$7f
  157. =$7f
  158. x
  159. F
  160. ]
  161. }
  162. P
  163. $20  "50$0D"
  164. X                        { monitor mode off }
  165. U                        { monitor mode on }
  166. A1%r                     { set funkey label line area attr normal }
  167. c8%h%h%m%m               typecr("Time is: @ctime")   { 6-89 added }
  168. END
  169.